home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD School House 10
/
CD School House - Education and Games (10.0) - Wayzata Technology (1995).iso
/
mac
/
DOS
/
MISC
/
FTK
/
GEAR.TK
< prev
next >
Wrap
Text File
|
1994-02-24
|
2KB
|
266 lines
TK!2
=v
#1
:n
:s
b
:c
**** CHORDAL TOOTH THICKNESS ****
#3
:n
n
:v
25
:s
i
:c
Number of teeth
#4
:n
pn
:s
b
:u
1/in
:d
1/in
:c
Normal diametral pitch
#5
:n
npa
:s
b
:u
rad
:d
deg
:c
Normal pressure angle
#6
:n
ha
:v
.40142572796
:s
i
:u
rad
:d
deg
:c
Nominal helix angle
#7
:n
od
:v
2.75
:s
i
:u
in
:d
in
:c
Design outside diameter
#8
:n
hc
:v
.09
:s
i
:u
in
:d
in
:c
Chordal height
#9
:n
ntc
:v
.1172
:s
i
:u
in
:d
in
:c
Chordal tooth thickness
#10
:n
pd
:s
b
:u
in
:d
in
:c
Ref pitch diameter
#11
:n
pt
:v
10
:s
i
:u
1/in
:d
1/in
:c
Transverse diametral pitch
#12
:n
tpa
:v
.3926990817
:s
i
:u
rad
:d
deg
:c
Transverse pressure angle
#14
:n
ntt
:s
b
:u
in
:d
in
:c
Normal tooth thickness at ref pd
#15
:n
ttt
:s
b
:u
in
:d
in
:c
Transverse tooth thickness at ref pd
#18
:n
:s
b
:c
(Type =R to see the Rule Sheet)
=u
#1
:f
rad
:t
deg
:m
57.2957795129
#2
:f
deg
:t
min
:m
60
#3
:f
min
:t
sec
:m
60
#4
:f
in
:t
mm
:m
25.4
#5
:f
in
:t
cm
:m
2.54
#6
:f
in
:t
m
:m
.0254
#7
:f
ft
:t
in
:m
12
=r
#1
:r
pt=pn*cos(ha) "trans pitch
#2
:r
tpa=atan(tan(npa)/cos(ha)) "trans pressure angle
#3
:r
pd=n/pt "ref pitch diameter
#4
:r
rc+hc=od/2 "radius on tooth at chordal height
#5
:r
ha_c=atan((2*rc/pd)*tan(ha)) "helix angle at chordal height
#6
:r
ttc=ntc/cos(ha_c) "trans tooth thickness at chordal height
#7
:r
ac=atan(ttc/(2*rc)) "| intermediate values
#8
:r
ab=acos(pd*cos(tpa)*sin(ac)/ttc) "|
#9
:r
ttt=pd*(ac+tan(ab)-ab-tan(tpa)+tpa) "trans tooth thickness at ref pd
#10
:r
ntt=ttt*cos(ha) "normal tooth thickness at ref pd
#12
:r
" Universal Technical Systems has been creating and marketing highly
:s
C
#13
:r
" sophisticated gear design and manufacturing software using the expert
:s
C
#14
:r
" systems approach for over a decade. Some of this software is now
:s
C
#15
:r
" available in models for the full TK Solver Plus. Contact UTS for
:s
C
#16
:r
" further information on our complete line of gear software.
:s
C
%Tv,f,0,5,0,1,0